inherited crdDogovorNorm: TcrdDogovorNorm
  Left = 475
  Top = 230
  Caption = #1044#1086#1073#1072#1074#1083#1077#1085#1080#1077'/'#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1093' '#1085#1086#1088#1084
  ClientHeight = 236
  Constraints.MinHeight = 240
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 206
    Height = 30
    inherited BitBtn1: TBitBtn
      Top = 3
    end
    inherited BitBtn2: TBitBtn
      Top = 3
    end
  end
  inherited Panel2: TPanel
    Top = 25
  end
  inherited pInfo: TPanel
    Top = 236
    Height = 0
  end
  inherited GroupBox2: TGroupBox
    Top = 85
    Height = 121
    inherited Label5: TLabel
      Top = 21
    end
    inherited Label6: TLabel
      Top = 45
    end
    inherited Label7: TLabel
      Top = 70
    end
    inherited DBEditEh4: TDBEditEh
      DataSource = dsc_NormMeter1
    end
    inherited DBEditEh5: TDBEditEh
      DataSource = dsc_NormMeter2
    end
    inherited DBEditEh6: TDBEditEh
      DataSource = dsc_NormMeter3
    end
    inherited DBEditEh8: TDBEditEh
      DataSource = dsc_NormMeter4
    end
  end
  inherited ActionList1: TActionList
    Left = 368
    Top = 28
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdDogovorNorm'
  end
  inherited trNorms: TpFIBTransaction
    Left = 400
    Top = 28
  end
  inherited dsNorm0M: TpFIBDataSet
    UpdateTransaction = MAINDM.pMainTransaction
    Left = 252
    Top = 340
  end
  inherited dscNorm0M: TDataSource
    Left = 284
    Top = 340
  end
  inherited dsNorm1M: TpFIBDataSet
    UpdateTransaction = MAINDM.pMainTransaction
    Left = 252
    Top = 372
  end
  inherited dscNorm1M: TDataSource
    Left = 284
    Top = 372
  end
  inherited dsNorm2M: TpFIBDataSet
    UpdateTransaction = MAINDM.pMainTransaction
    Left = 252
    Top = 404
  end
  inherited dscNorm2M: TDataSource
    Left = 284
    Top = 404
  end
  inherited dsNorm3M: TpFIBDataSet
    Left = 252
    Top = 304
  end
  inherited dscNorm3M: TDataSource
    Left = 284
    Top = 304
  end
  object DSContainer: TDataSetsContainer
    Left = 324
    Top = 29
  end
  object ds_NormMeter3: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE DOGOVOR_NORMS'
      'SET '
      '    NORM = :NORM,'
      '    BDATE = :BDATE,'
      '    NORM_DAY = :NORM_DAY'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    DOGOVOR_NORMS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO DOGOVOR_NORMS('
      '    ID,'
      '    DOGOVOR_ID,'
      '    NORM,'
      '    BDATE,'
      '    SEQ,'
      '    NORM_DAY'
      ')'
      'VALUES('
      '    :ID,'
      '    :DOGOVOR_ID,'
      '    :NORM,'
      '    :BDATE,'
      '    3,'
      '    :NORM_DAY'
      ')')
    RefreshSQL.Strings = (
      'select rt.*'
      'from dogovor_norms rt'
      'where(  rt.dogovor_id = :pdogovor_id'
      '  and rt.bdate = :bdate'
      '  and rt.seq = 3 )'
      '    and (     RT.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select rt.*'
      'from dogovor_norms rt'
      'where rt.dogovor_id = :pdogovor_id'
      '  and rt.bdate = :pbdate'
      '  and rt.seq = 3')
    AllowedUpdateKinds = [ukModify, ukInsert]
    Transaction = trNorms
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 364
    Top = 148
    object ds_NormMeter3ID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_NormMeter3DOGOVOR_ID: TFIBIntegerField
      FieldName = 'DOGOVOR_ID'
    end
    object ds_NormMeter3BDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object ds_NormMeter3SEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
    object ds_NormMeter3NORM_DAY: TFIBSmallIntField
      FieldName = 'NORM_DAY'
    end
    object ds_NormMeter3NORM: TFIBFloatField
      FieldName = 'NORM'
    end
    object ds_NormMeter3CREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object ds_NormMeter3CREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object ds_NormMeter3MODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object ds_NormMeter3MODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
  end
  object ds_NormMeter2: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE DOGOVOR_NORMS'
      'SET '
      '    NORM = :NORM,'
      '    BDATE = :BDATE,'
      '    NORM_DAY = :NORM_DAY'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    DOGOVOR_NORMS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO DOGOVOR_NORMS('
      '    ID,'
      '    DOGOVOR_ID,'
      '    NORM,'
      '    BDATE,'
      '    SEQ,'
      '    NORM_DAY'
      ')'
      'VALUES('
      '    :ID,'
      '    :DOGOVOR_ID,'
      '    :NORM,'
      '    :BDATE,'
      '    2,'
      '    :NORM_DAY'
      ')')
    RefreshSQL.Strings = (
      'select rt.*'
      'from dogovor_norms rt'
      'where(  rt.dogovor_id = :pdogovor_id'
      '  and rt.bdate = :bdate'
      '  and rt.seq = 2 )'
      '    and (     RT.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select rt.*'
      'from dogovor_norms rt'
      'where rt.dogovor_id = :pdogovor_id'
      '  and rt.bdate = :pbdate'
      '  and rt.seq = 2')
    AllowedUpdateKinds = [ukModify, ukInsert]
    Transaction = trNorms
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 364
    Top = 120
    object ds_NormMeter2ID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_NormMeter2DOGOVOR_ID: TFIBIntegerField
      FieldName = 'DOGOVOR_ID'
    end
    object ds_NormMeter2BDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object ds_NormMeter2SEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
    object ds_NormMeter2NORM_DAY: TFIBSmallIntField
      FieldName = 'NORM_DAY'
    end
    object ds_NormMeter2NORM: TFIBFloatField
      FieldName = 'NORM'
    end
    object ds_NormMeter2CREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object ds_NormMeter2CREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object ds_NormMeter2MODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object ds_NormMeter2MODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
  end
  object ds_NormMeter1: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE DOGOVOR_NORMS'
      'SET '
      '    NORM = :NORM,'
      '    BDATE = :BDATE,'
      '    NORM_DAY = :NORM_DAY'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    DOGOVOR_NORMS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO DOGOVOR_NORMS('
      '    ID,'
      '    DOGOVOR_ID,'
      '    NORM,'
      '    BDATE,'
      '    SEQ,'
      '    NORM_DAY'
      ')'
      'VALUES('
      '    :ID,'
      '    :DOGOVOR_ID,'
      '    :NORM,'
      '    :BDATE,'
      '    1,'
      '    :NORM_DAY'
      ')')
    RefreshSQL.Strings = (
      'select rt.*'
      'from dogovor_norms rt'
      'where(  rt.dogovor_id = :pdogovor_id'
      '  and rt.bdate = :bdate'
      '  and rt.seq = 1 )'
      '    and (     RT.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select rt.*'
      'from dogovor_norms rt'
      'where rt.dogovor_id = :pdogovor_id'
      '  and rt.bdate = :pbdate'
      '  and rt.seq = 1')
    AllowedUpdateKinds = [ukModify, ukInsert]
    Transaction = trNorms
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 364
    Top = 92
    object ds_NormMeter1ID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_NormMeter1DOGOVOR_ID: TFIBIntegerField
      FieldName = 'DOGOVOR_ID'
    end
    object ds_NormMeter1BDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object ds_NormMeter1SEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
    object ds_NormMeter1NORM_DAY: TFIBSmallIntField
      FieldName = 'NORM_DAY'
    end
    object ds_NormMeter1NORM: TFIBFloatField
      FieldName = 'NORM'
    end
    object ds_NormMeter1CREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object ds_NormMeter1CREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object ds_NormMeter1MODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object ds_NormMeter1MODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
  end
  object dsc_NormMeter1: TDataSource
    DataSet = ds_NormMeter1
    Left = 396
    Top = 92
  end
  object dsc_NormMeter2: TDataSource
    DataSet = ds_NormMeter2
    Left = 396
    Top = 120
  end
  object dsc_NormMeter3: TDataSource
    DataSet = ds_NormMeter3
    Left = 396
    Top = 148
  end
  object ds_NormMeter4: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE DOGOVOR_NORMS'
      'SET '
      '    NORM = :NORM,'
      '    BDATE = :BDATE,'
      '    NORM_DAY = :NORM_DAY'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    DOGOVOR_NORMS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO DOGOVOR_NORMS('
      '    ID,'
      '    DOGOVOR_ID,'
      '    NORM,'
      '    BDATE,'
      '    SEQ,'
      '    NORM_DAY'
      ')'
      'VALUES('
      '    :ID,'
      '    :DOGOVOR_ID,'
      '    :NORM,'
      '    :BDATE,'
      '    4,'
      '    :NORM_DAY'
      ')')
    RefreshSQL.Strings = (
      'select rt.*'
      'from dogovor_norms rt'
      'where(  rt.dogovor_id = :pdogovor_id'
      '  and rt.bdate = :bdate'
      '  and rt.seq = 4 )'
      '    and (     RT.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select rt.*'
      'from dogovor_norms rt'
      'where rt.dogovor_id = :pdogovor_id'
      '  and rt.bdate = :pbdate'
      '  and rt.seq = 4')
    AllowedUpdateKinds = [ukModify, ukInsert]
    Transaction = trNorms
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 364
    Top = 176
    object ds_NormMeter4ID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_NormMeter4DOGOVOR_ID: TFIBIntegerField
      FieldName = 'DOGOVOR_ID'
    end
    object ds_NormMeter4BDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object ds_NormMeter4SEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
    object ds_NormMeter4NORM_DAY: TFIBSmallIntField
      FieldName = 'NORM_DAY'
    end
    object ds_NormMeter4NORM: TFIBFloatField
      FieldName = 'NORM'
    end
    object ds_NormMeter4CREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object ds_NormMeter4CREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object ds_NormMeter4MODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object ds_NormMeter4MODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
  end
  object dsc_NormMeter4: TDataSource
    DataSet = ds_NormMeter4
    Left = 396
    Top = 176
  end
end
